home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / Libraries / GIF / GIFSaveExample.p < prev    next >
Text File  |  1995-07-20  |  682b  |  36 lines
  1. program GIFSaveExample;
  2.  
  3.     uses
  4.         Files, MyInitialization, GIFSave;
  5.         
  6.     function MyGetPixel(x,y: integer): integer;
  7.     begin
  8.         if x = y then begin
  9.             MyGetPixel := 1;
  10.         end else if odd(x) then begin
  11.             MyGetPixel := 1;
  12.         end else begin
  13.             MyGetPixel := 0;
  14.         end;
  15.     end;
  16.     
  17. var
  18.     err:OSErr;
  19.     result:integer;
  20.     fs:FSSpec;
  21. begin
  22.     Initialization;
  23.     err:=FSMakeFSSpec(0,0,'Zany:Desktop Folder:examplefile.gif',fs);
  24.     writeln(err);
  25.     result := GIF_Create(fs, 32, 64, 2, 1);
  26.     writeln(result);
  27.     if result = GIF_OK then begin
  28.         GIF_SetColor(0,1,1,1);
  29.         GIF_SetColor(1,0,0,0);
  30.         result := GIF_CompressImage(0,0,32,64,MyGetPixel);
  31.         writeln(result);
  32.         result := GIF_Close;
  33.         writeln(result);
  34.     end;
  35. end.
  36.